home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / VB98 / TEMPLATE / FORMS / BROWSER.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-06-26  |  8.3 KB  |  245 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11d2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  3. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
  4. Begin VB.Form frmBrowser 
  5.    ClientHeight    =   5130
  6.    ClientLeft      =   3060
  7.    ClientTop       =   3345
  8.    ClientWidth     =   6540
  9.    LinkTopic       =   "Form1"
  10.    MDIChild        =   -1  'True
  11.    ScaleHeight     =   5130
  12.    ScaleWidth      =   6540
  13.    ShowInTaskbar   =   0   'False
  14.    Begin MSComctlLib.Toolbar tbToolBar 
  15.       Align           =   1  'Align Top
  16.       Height          =   540
  17.       Left            =   0
  18.       TabIndex        =   3
  19.       Top             =   0
  20.       Width           =   6540
  21.       _ExtentX        =   11536
  22.       _ExtentY        =   953
  23.       ButtonWidth     =   820
  24.       ButtonHeight    =   794
  25.       Appearance      =   1
  26.       ImageList       =   "imlIcons"
  27.       _Version        =   393216
  28.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  29.          NumButtons      =   6
  30.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  31.             Key             =   "Back"
  32.             Object.ToolTipText     =   "Back"
  33.             ImageIndex      =   1
  34.          EndProperty
  35.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  36.             Key             =   "Forward"
  37.             Object.ToolTipText     =   "Forward"
  38.             ImageIndex      =   2
  39.          EndProperty
  40.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  41.             Key             =   "Stop"
  42.             Object.ToolTipText     =   "Stop"
  43.             ImageIndex      =   3
  44.          EndProperty
  45.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  46.             Key             =   "Refresh"
  47.             Object.ToolTipText     =   "Refresh"
  48.             ImageIndex      =   4
  49.          EndProperty
  50.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  51.             Key             =   "Home"
  52.             Object.ToolTipText     =   "Home"
  53.             ImageIndex      =   5
  54.          EndProperty
  55.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  56.             Key             =   "Search"
  57.             Object.ToolTipText     =   "Search"
  58.             ImageIndex      =   6
  59.          EndProperty
  60.       EndProperty
  61.    End
  62.    Begin SHDocVwCtl.WebBrowser brwWebBrowser 
  63.       Height          =   3734
  64.       Left            =   50
  65.       TabIndex        =   0
  66.       Top             =   1215
  67.       Width           =   5393
  68.       ExtentX         =   9525
  69.       ExtentY         =   6588
  70.       ViewMode        =   1
  71.       Offline         =   0
  72.       Silent          =   0
  73.       RegisterAsBrowser=   0
  74.       RegisterAsDropTarget=   0
  75.       AutoArrange     =   -1  'True
  76.       NoClientEdge    =   -1  'True
  77.       AlignLeft       =   0   'False
  78.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  79.       Location        =   ""
  80.    End
  81.    Begin VB.Timer timTimer 
  82.       Enabled         =   0   'False
  83.       Interval        =   5
  84.       Left            =   6180
  85.       Top             =   1500
  86.    End
  87.    Begin VB.PictureBox picAddress 
  88.       Align           =   1  'Align Top
  89.       BorderStyle     =   0  'None
  90.       Height          =   675
  91.       Left            =   0
  92.       ScaleHeight     =   675
  93.       ScaleWidth      =   6540
  94.       TabIndex        =   4
  95.       TabStop         =   0   'False
  96.       Top             =   540
  97.       Width           =   6540
  98.       Begin VB.ComboBox cboAddress 
  99.          Height          =   315
  100.          Left            =   45
  101.          TabIndex        =   2
  102.          Text            =   "
  103. END!"
  104.          Top             =   300
  105.          Width           =   3795
  106.       End
  107.       Begin VB.Label lblAddress 
  108.          Caption         =   "&Address:"
  109.          Height          =   255
  110.          Left            =   45
  111.          TabIndex        =   1
  112.          Tag             =   "&Address:"
  113.          Top             =   60
  114.          Width           =   3075
  115.       End
  116.    End
  117.    Begin MSComctlLib.ImageList imlIcons 
  118.       Left            =   2670
  119.       Top             =   2325
  120.       _ExtentX        =   1005
  121.       _ExtentY        =   1005
  122.       BackColor       =   -2147483643
  123.       ImageWidth      =   24
  124.       ImageHeight     =   24
  125.       MaskColor       =   12632256
  126.       _Version        =   393216
  127.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  128.          NumListImages   =   6
  129.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  130.             Picture         =   "Web Browser.frx":0000
  131.             Key             =   ""
  132.          EndProperty
  133.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  134.             Picture         =   "Web Browser.frx":02E2
  135.             Key             =   ""
  136.          EndProperty
  137.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  138.             Picture         =   "Web Browser.frx":05C4
  139.             Key             =   ""
  140.          EndProperty
  141.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  142.             Picture         =   "Web Browser.frx":08A6
  143.             Key             =   ""
  144.          EndProperty
  145.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  146.             Picture         =   "Web Browser.frx":0B88
  147.             Key             =   ""
  148.          EndProperty
  149.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  150.             Picture         =   "Web Browser.frx":0E6A
  151.             Key             =   ""
  152.          EndProperty
  153.       EndProperty
  154.    End
  155. Attribute VB_Name = "frmBrowser"
  156. Attribute VB_GlobalNameSpace = False
  157. Attribute VB_Creatable = False
  158. Attribute VB_PredeclaredId = True
  159. Attribute VB_Exposed = False
  160. Option Explicit
  161. Public StartingAddress As String
  162. Dim mbDontNavigateNow As Boolean
  163. Private Sub Form_Load()
  164.     On Error Resume Next
  165.     Me.Show
  166.     tbToolBar.Refresh
  167.     Form_Resize
  168.     cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15
  169.     If Len(StartingAddress) > 0 Then
  170.         cboAddress.Text = StartingAddress
  171.         cboAddress.AddItem cboAddress.Text
  172.         'try to navigate to the starting address
  173.         timTimer.Enabled = True
  174.         brwWebBrowser.Navigate StartingAddress
  175.     End If
  176. End Sub
  177. Private Sub brwWebBrowser_DownloadComplete()
  178.     On Error Resume Next
  179.     Me.Caption = brwWebBrowser.LocationName
  180. End Sub
  181. Private Sub brwWebBrowser_NavigateComplete(ByVal URL As String)
  182.     Dim i As Integer
  183.     Dim bFound As Boolean
  184.     Me.Caption = brwWebBrowser.LocationName
  185.     For i = 0 To cboAddress.ListCount - 1
  186.         If cboAddress.List(i) = brwWebBrowser.LocationURL Then
  187.             bFound = True
  188.             Exit For
  189.         End If
  190.     Next i
  191.     mbDontNavigateNow = True
  192.     If bFound Then
  193.         cboAddress.RemoveItem i
  194.     End If
  195.     cboAddress.AddItem brwWebBrowser.LocationURL, 0
  196.     cboAddress.ListIndex = 0
  197.     mbDontNavigateNow = False
  198. End Sub
  199. Private Sub cboAddress_Click()
  200.     If mbDontNavigateNow Then Exit Sub
  201.     timTimer.Enabled = True
  202.     brwWebBrowser.Navigate cboAddress.Text
  203. End Sub
  204. Private Sub cboAddress_KeyPress(KeyAscii As Integer)
  205.     On Error Resume Next
  206.     If KeyAscii = vbKeyReturn Then
  207.         cboAddress_Click
  208.     End If
  209. End Sub
  210. Private Sub Form_Resize()
  211.     cboAddress.Width = Me.ScaleWidth - 100
  212.     brwWebBrowser.Width = Me.ScaleWidth - 100
  213.     brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 100
  214. End Sub
  215. Private Sub timTimer_Timer()
  216.     If brwWebBrowser.Busy = False Then
  217.         timTimer.Enabled = False
  218.         Me.Caption = brwWebBrowser.LocationName
  219.     Else
  220.         Me.Caption = "Working..."
  221.     End If
  222. End Sub
  223. Private Sub tbToolBar_ButtonClick(ByVal Button As Button)
  224.     On Error Resume Next
  225.      
  226.     timTimer.Enabled = True
  227.      
  228.     Select Case Button.Key
  229.         Case "Back"
  230.             brwWebBrowser.GoBack
  231.         Case "Forward"
  232.             brwWebBrowser.GoForward
  233.         Case "Refresh"
  234.             brwWebBrowser.Refresh
  235.         Case "Home"
  236.             brwWebBrowser.GoHome
  237.         Case "Search"
  238.             brwWebBrowser.GoSearch
  239.         Case "Stop"
  240.             timTimer.Enabled = False
  241.             brwWebBrowser.Stop
  242.             Me.Caption = brwWebBrowser.LocationName
  243.     End Select
  244. End Sub
  245.